function initcap(s){b=toupper(substr(s,1,1))substr(s,2);return b}
BEGIN{FS="_"}{for(i=1;i<=NF;i++)c=c""initcap($i);print c}
